home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b4.d64
/
solution4.19
< prev
next >
Wrap
Text File
|
2007-02-28
|
385b
|
16 lines
0010 DIM PRICE(12)
0020 FOR ITEM:=1 TO 12 DO
0030 READ NUM
0040 PRICE(ITEM):=NUM
0050 ENDFOR ITEM
0060 FOR GUEST:=1 TO 3 DO
0070 CHARGE:=0
0080 REPEAT
0090 READ CHOICE
0100 IF CHOICE>0 THEN CHARGE:=CHARGE+PRICE(CHOICE)
0110 UNTIL CHOICE<0
0120 PRINT "CHARGE FOR GUEST IS";CHARGE
0130 ENDFOR GUEST
0140 DATA 1,1.2,1.8,2,1.5,.8,.6,1.3,1,2,1.3,1.4
0150 DATA 2,6,8,-1,1,2,5,7,-1,3,6,8,-1